home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1147 < prev    next >
Text File  |  1996-10-03  |  1KB  |  64 lines
  1. userdict begin /supdict 65 dict def end 
  2. supdict begin 
  3. /str1 512 string def     
  4. /dx 500 def     
  5. /dy 700 def     
  6. /cnt 0 def     
  7. /newinside {
  8. {flattenpath}fp clipper
  9. pathbbox
  10. 1 index 4 index sub round cvi /dx xdf
  11. 0 index 3 index sub round cvi /dy xdf
  12. pop pop translate
  13. 222 srand
  14. newpath
  15. } bind def
  16. /randint {
  17. rand exch mod } def
  18. /rand8 { rand -16 bitshift 255 and} def
  19. /rand2 
  20. { rand -16 bitshift 3 and } def
  21. /brandxy {
  22. dx randint dy randint } def
  23. /x1  
  24. { angle cos abs dx mul } def
  25. /x2  
  26. { 90 angle sub cos abs dy mul } def
  27. /y1  
  28. { angle sin abs dx mul } def
  29. /y2  
  30. { 90 angle sub sin abs dy mul } def
  31. /backgnd 
  32. { xstart ystart m
  33. xstart ystart abs L
  34. xstart abs ystart abs L
  35. xstart abs ystart L
  36. closepath fill } def
  37. /incrcnt  
  38. { /cnt cnt 1 add def } def
  39. /colorchoice
  40. {
  41. /found false def  
  42. gray?
  43. {/CCblack [0 0 0 0] def
  44. color 1 exch sub
  45. CCblack 3 3 -1 roll put
  46. CCblack vc} 
  47. {color length 2 eq
  48. {color 1 get type (text) type eq
  49. {0 1 spots length 1 sub
  50. {/cnt xdf      
  51. spots cnt get 4 get color 1 get eq
  52. {/found true def exit} if 
  53. } for
  54. found {color 1 cnt put} {color 1 3 put} ifelse
  55. } if 
  56. color vc
  57. } if 
  58. color length 4 eq {color vc} if   
  59. } ifelse
  60. } def
  61. /gray?  
  62. { color type 0 type eq color type .0 type eq or } def
  63. end